home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / graphics / display / showpic / showpic.e < prev    next >
Encoding:
Text File  |  1997-11-20  |  1.7 KB  |  58 lines
  1. /*
  2. ShowPic V1.00  24-Feb-96
  3. by Jan Hagqvist
  4. */
  5.  
  6. MODULE 'datatypes/datatypesclass','datatypes','datatypes/pictureclass','datatypes/datatypes',
  7.        'intuition/intuition','intuition/screens','utility/tagitem','intuition/gadgetclass',
  8.        'dos','dos/dos'
  9.  
  10. DEF mywin,args,mypic:gadget,mypicflags,imsg
  11. CONST WINIDCMP=IDCMP_CLOSEWINDOW OR IDCMP_CHANGEWINDOW
  12. CONST WINFLAGS=WFLG_DRAGBAR OR WFLG_CLOSEGADGET OR WFLG_DEPTHGADGET OR WFLG_SIMPLE_REFRESH OR WFLG_NOCAREREFRESH OR WFLG_ACTIVATE OR WFLG_SIZEGADGET
  13.  
  14. PROC main()
  15.  WriteF('ShowPic V1.00  24-Feb-96  by Jan Hagqvist\n')
  16.  args:=GetArgStr()
  17.  PutChar(args+StrLen(args)-1,0)
  18.  imsg:=Open(args,MODE_OLDFILE)
  19.  IF imsg<>0
  20.   Close(imsg)
  21.   IF datatypesbase:=OpenLibrary('datatypes.library',0)
  22.    mypic:=NewDTObjectA(args,[DTA_SOURCETYPE,DTST_FILE,DTA_GROUPID,GID_PICTURE,
  23.     GA_LEFT,4,GA_TOP,11,GA_RELWIDTH,-22,GA_RELHEIGHT,-13,
  24.     TAG_DONE])
  25.    IF mypic<>0
  26.     IF mywin:=OpenW(0,0,640,256,WINIDCMP,WINFLAGS,'Picture Window',0,WBENCHSCREEN,0,0)
  27.      AddDTObject(mywin,0,mypic,-1)
  28.      REPEAT
  29.       mypicflags:=mypic.specialinfo+46
  30.       Delay(25)
  31.      UNTIL (^mypicflags AND 1)=FALSE
  32.      RefreshDTObjectA(mypic,mywin,0,0)
  33.      waitmsg()
  34.      RemoveDTObject(mywin,mypic)
  35.      DisposeDTObject(mypic)
  36.      CloseW(mywin)
  37.     ELSE
  38.      WriteF('\nCan\at open window\n')
  39.     ENDIF
  40.    ELSE
  41.     WriteF('\s',PrintFault(IoErr(),'\nLoad error'))
  42.    ENDIF
  43.    CloseLibrary(datatypesbase)
  44.   ELSE
  45.    WriteF('\nUnable to open datatypes.library\n')
  46.   ENDIF
  47.  ELSE
  48.   WriteF('\nCan\at open file: \s\n',args)
  49.  ENDIF
  50. ENDPROC
  51.  
  52. PROC waitmsg()
  53.  REPEAT
  54.   imsg:=WaitIMessage(mywin)
  55.   IF imsg=IDCMP_CHANGEWINDOW THEN RefreshDTObjectA(mypic,mywin,0,0)
  56.  UNTIL imsg=IDCMP_CLOSEWINDOW
  57. ENDPROC
  58.